procedure pepe () is

UNO:	constant := 1;
DIEZ:	constant := 10;
CIERTO:	constant := True;

type Vector1 is array(UNO..DIEZ) of Integer;

type Tfecha is record
	dia: Integer;
	mes : Integer;
end record;

p1	: Integer;
p3, p4: Boolean;

function mult (x, y: Integer) return Integer is

	function suma (a, b: Integer; c, d: Boolean; e: Tfecha) return Integer is
	begin
	end;
	
	function suma2 (a, b: Integer) return Integer is
	begin
	end;
	
begin

	a := 1 - suma2(1 , 2);
	b := p3 < 2;
	b := p1 < 2;

	
end;


begin
end pepe;